home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / net / AmiComSys.lha / AmiComSys / rexx / Ping.rexx < prev    next >
OS/2 REXX Batch file  |  1998-01-25  |  773b  |  26 lines
  1. /* ARexx script to Ping someone */
  2. /* For use with AmiComSys 1.12+ */
  3. /* Ping must be in the AMITCP:bin directory or */
  4. /* MiamiPing must be in the MIAMI: directory */ 
  5. /* $VER: Ping.rexx 1.1 (15.1.97) Håkan Parting */
  6. ADDRESS AMICOMSYS;
  7. OPTIONS RESULTS;
  8.  
  9. GET stem info. CLIENTLIST;
  10. /* "stem info." inserts the results to the structure 'info.'. */
  11. /* "var s" would have inserted all the results to one string in s. */
  12. /* "CLIENTLIST": We want to read the client list information. */
  13. s=info.selected;
  14.  
  15. if show('P','MIAMI.1') then
  16. do
  17.     ADDRESS COMMAND "MIAMI:MiamiPing " info.hostnames.s;    
  18.     Exit
  19. end
  20.  
  21. ADDRESS COMMAND "AMITCP:bin/Ping " info.hostnames.s;
  22. /* To start another application just change ping to any other
  23. program name and remove the 'if show do end' block*/
  24.  
  25. EXIT;
  26.